<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/conn.asp"-->
<!--#include file="lib/json_lastest.asp"-->
<!--#include file="lib/json_util_lastest.asp"-->
<!--#include file="lib/saferequest.asp"-->

<%
'Response.ContentType = "application/json"
'sql="select port_id,port_name,country_name from port inner join country on port.port_country=country.country_id  order by country_name asc,port_name asc"
'QueryToJSON(conn,sql).Flush
'conn.close
'set conn=nothing

Dim a
Set a = jsArray()

Sub AddMember(name, surname, birth)
        Set a(Null) = jsObject()
        a(Null)("name") = name
        a(Null)("surname") = surname
        a(Null)("birth") = birth
End Sub

AddMember "tu?rul", "topuz", #1900-1-1#
AddMember "cin", "ali", #1900-2-1#

a.Flush





%>
